2 REM PDPD SOFTWARE 1992
4 REM DIA SHOW
5 PRINT"[147]":POKE 53280,0:POKE 53281,0:POKE 657,128:POKE 650,255:PRINTCHR$(5)
6 PRINTCHR$(142)"":A=0
20 GOTO 100
22 PRINT"[147]"
23 IF M<>1 THEN M=1:LOAD"SHOW*",8,1
24 IF N<>1 THEN N=1:LOAD"SPLIT*",8,1
26 FORB=0TO13:PRINT:NEXT
27 SYS 52480,8,A$,1
28 FORB=0TO500:NEXT
30 SYS 52480,8,"",0
32 SYS 52912
33 FORB=0TO500:NEXT
35 A=A+1:GOTO 50
50 PRINTSPC(30)"[158]-TASTE-[146]"
51 GET D$:IF D$="" THEN 51
52 SYS 53103:GOTO 20
100 IF A=0 THEN A$="[B]BILD1"
101 IF A=1 THEN A$="[B]BILD1A"
102 IF A=2 THEN A$="[B]BILD2"
103 IF A=3 THEN A$="[B]BILD3"
104 IF A=4 THEN A$="[B]BILD3A"
105 IF A=5 THEN A$="[B]BILD4"
106 IF A=6 THEN A$="[B]BILD5"
107 IF A=7 THEN A$="[B]BILD6"
108 IF A=8 THEN A$="[B]BILD7"
109 IF A=9 THEN A$="[B]BILD8"
110 IF A=10 THEN A$="[B]BILD9"
111 IF A=11 THEN A$="[B]BILD10"
112 IF A=12 THEN A$="[B]BILD11"
113 IF A=13 THEN A$="[B]BILD12"
114 IF A=14 THEN A$="[B]BILD13"
115 IF A=15 THEN A$="[B]BILD14"
116 IF A=16 THEN A$="[B]BILD15"
117 IF A=17 THEN A$="[B]BILD16"
118 IF A=18 THEN A$="[B]BILD17"
119 IF A=19 THEN A$="[B]BILD18"
122 IF A=20 THEN A$="[B]BILD19"
123 IF A=21 THEN A$="[B]BILD20"
124 IF A=22 THEN A$="[B]BILD21"
125 IF A=23 THEN A$="[B]BILD22"
126 IF A=24 THEN A$="[B]BILD23"
130 IF A>24 THEN A=0:GOTO 100
132 GOTO 22
302 REM CREDITS TO:
303 REM JAN TEMPLIN !
304 REM DATA HOUSE, KAI-UWE DITTRICH
305 REM MASTER MM SOFT, MATTHIAS MATTING